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 secceutey LANGUAGE INDEPENDENT SUPPORT 
; ABSTRACT 


this module contains the routine that converts packed numbers 
h floating. 


; VERSION: 1 
HISTORY: 


; AUTHOR: 
Pamela Levesque, 18-Jan-1982 


MODIFIED BY: 
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«SBTTL DECLARATIONS 


ro G 


INCLUDE FILES: 
SOSCDEF 


; EXTERNAL SYMBOLS: 
-DSABL GBL ; Prevent undeclared symbols from being 
3; automatically global 


~-EXTRN OTSSCVT_T_H ; D, E. F, G Conversion routine 


MACROS: 
NONE 


SOOCOOOOOOOOOOOOOOOOOOOOOo 
SOOQOOOCOOOOCoOOoSoS: 
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> PSECT DECLARATIONS: 
.PSECT _OTSSCODE PIC, SHR, LONG, EXE, NOWRT,- 
USR, CON, REL, LCL, RD 


0000 


EQUATED SYMBOLS: 
NONE 


oooooo 
Soooooo 


50.0909 09 09 09 09 59 09 09 09 SI NIN INI NI NINA AAA AAAAOOUIUTN 
SOONANE WN OS OONAUES WN OO ODNOAULS UW OOO 


OWN STORAGE: 
NONE 
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:* FUNCTIONAL DESCRIPTION: 

; Converts packed numbers to h floating. 

CALLING SEQUENCE: 

JSB OTSSCVTPH_RO (scale.rl.v, srclen.rl.v, src.rp.r, dst.wh.r) 
; Arguments are passed in R6, R7, RB and R9. 

; INPUT PARAMETERS: 

; SCALE.rl.v _ power of ten by which the internal 
guitiptis to scale the sees es the” 

3 internal representation of the dest. 

; SRCLEN.rl.v The number of digits in the source 

: SRC.rp.r The number to be converted 

; IMPLICIT INPUTS: 

; ALL of the trap bits in the PSL are assumed off. 

OUTPUT PARAMETERS: 

DST.wh.r The place to store the converted number 
IMPLICIT OUTPUTS: 

; NONE 

FUNCTION VALUE: 

1 = SUCCESS, 0 = FAILURE 

SIDE EFFECTS: 


Destroys registers RO through R9. 


OTSSCVTPH_R9:: 
SOBL2 #40,SP ; Space for temp string and result 
eye R7, (RB) .#31,8(SP) ; Make a separate sign string 


Make a sg for the leading separate string. 


onc or ook OF OS 


3 PUSHL ; Address = temp string 
7E 1 MOVB CLASS_S,-(SP) ; Class = static 
7E 3 MOVB Pech DTYPE-T.-(SP) ; Data type_= ASCII text 
7E MOVW -(SP) ; Length = 32 byte 


ee ma a a et ed ad = 4 2 8 2 td ss 2 3 —) 2 2) 2 


: Now call the conversion routine. 
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(4) 


149 ; 

1 EGL R6,-(SP) 3 scate ctor 

1 PUSHL # : OD n fraction 

1 PUSHAB 16(SP) 3; Ad reee of result area 

1 PUSH 12($P) 3; Address of Goer ptor 

1 CALLS #4, edd T_H : Call the rout 

1 BLBC RO 3; Fa By must be overflow 
1 : VH Bees) (RY) : Store result 

1 VL #1 A 3; Indicate success 

1 3 1$: ADDL2 #48,5 3; Delete stack temps 

; RSB 3; Return 

18} ; Come here on overflow to store the reserved operand. 

188 2s: ASHQ #15,41,(R9) f yeave reserved gperene 
164 CLRL RO ; Indicate failu 

19 BRE 1$ ; Delete stack tome and return 
189 ~END 


OTSSCVTPH_RO 
Symbol table 


DSCSK_CLASS_S = 1 
DSCSK"“DTYPE"T = 
OTSSCUTPH_RO RG 
OTSSCVT_T_H eeereree 
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! Psect synopsis ! 


Pome nr aman eee saonaah 


PSECT name Allocation PSECT No. Attributes 


ABS . 4 8 ( 8-3 9 ( 9-3 NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS ( ) ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
-OTSSCODE 00050 ¢ 61.) 02¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


$e noe emer oarren eae c me omoeme $ 


! Performance indicators ! 


Foca acon ana neces arncaonas + 


Phase Page faults CPU Time Elapsed Time 


Initialization 30 :00: 8.9 :00: ‘Te 
C processing 11 :00:00. :00:02. 
cone | eobt . 13 9 :00: 8°38 
yabol table sor :00:00. :00:00. 
Pass 2 “3 :00:00. p :00: 89 
Symbol table output 0:00:00. :00:00.01 
Psect synopsis output :00:00. 0:00:00.0 
Cross-reference output :00:00. 0:00:00. 
Assembler run totals 32 :00:01. 0:00:10. 


ine working set Limit was 900 pages. 

8057 bytes (16 pages) of virtual memory were used to buffer the intermediate cod 
There were 10 pages of symbol table space allocated to hold 133 non-local gnd 2 
167 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

8 pages of virtual memory were used to define / macros. 


e. 
local symbols. 


$eosew ar nweeceenmeocase ee cowen + 


! Macro Library statistics ! 


$oeece wor een sen e es ween ence cn} 


Macro Library name Macros defined 
“$255SDUAZ8:(SYSLIBISTARLET.MLB:20 ( (it(‘(‘C~;~;S;*é*~*” .; 
190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 
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